home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
PARAGRAP.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
5KB
|
67 lines
;;; compiled by @win386 on Sat Mar 13 01:39:45 1993
;;; from file c:/src/lucid-19.4/lisp/prim/paragrap.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar paragraph-ignore-fill-prefix nil "\
Non-nil means the paragraph commands are not affected by fill-prefix.
This is desirable in modes where blank lines are the paragraph delimiters.")
(fset 'forward-paragraph #[(&optional arg) "¼é┴\n¡ì\n├Ü?¡ç?¡â┼\n!ë½ë╚╔R¬é╩W½≥╦!¼è╠═`Se]╬#¼▄╧uê╩yêo¼ï╦!½à╧yê¬r╨ê½¢╩yêo¼æ╦!¼ï╦!½à╧yê¬io?¬å╠╨╬#½¢m¼ï╦!½à┴yê¬r`╥Zf╙=½ê╧yê¬âebêTë¬\n╩V½┐╩yêm?¡ä╦!┴yê¼s½öm¼ó╦!¼£╦!½û┴yê¬l╘╨╬#½å╩öbê¬âdbêSë¬=*╬ëç" [arg 1 fill-prefix "" paragraph-ignore-fill-prefix regexp-quote fill-prefix-regexp paragraph-separate "\\|^" "[ ]*$" 0 looking-at re-search-backward "^\n" t -1 nil paragraph-start 2 10 re-search-forward zmacs-region-stays] 5 "\
Move forward to end of paragraph.
With arg N, do it N times; negative arg -N means move forward N paragraphs.
A line which `paragraph-start' matches either separates paragraphs
(if `paragraph-separate' matches it also) or is the first line of a paragraph.
A paragraph end is the beginning of a line which is not part of the paragraph
to which the end of the previous line belongs, or the end of the buffer." "p"])
(fset 'backward-paragraph #[(&optional arg) "¼é┴┬[!ç" [arg 1 forward-paragraph] 2 "\
Move backward to start of paragraph.
With arg N, do it N times; negative arg -N means move forward N paragraphs.
A paragraph start is the beginning of a line which is a first-line-of-paragraph
or which is ordinary text and follows a paragraph-separating line; except:
if the first real line of a paragraph is preceded by a blank line,
the paragraph starts at that blank line.
See forward-paragraph for more information." "p"])
(fset 'mark-paragraph #[nil "└┴!ê┬├─\"ê┼┴!ê╞ ç" [forward-paragraph 1 push-mark nil t backward-paragraph zmacs-activate-region] 3 "\
Put point at beginning of this paragraph, mark at end.
The paragraph marked is the one that contains point or follows point." nil])
(fset 'kill-paragraph #[(arg) "└`┴\n!ê`\"ç" [kill-region forward-paragraph arg] 4 "\
Kill forward to end of paragraph.
With arg N, kill forward to Nth end of paragraph;
negative arg -N means kill backward to Nth start of paragraph." "*p"])
(fset 'backward-kill-paragraph #[(arg) "└`┴\n!ê`\"ç" [kill-region backward-paragraph arg] 4 "\
Kill back to start of paragraph.
With arg N, kill back to Nth start of paragraph;
negative arg -N means kill forward to Nth end of paragraph." "*p"])
(fset 'transpose-paragraphs #[(arg) "└┴\n\"ç" [transpose-subr forward-paragraph arg] 3 "\
Interchange this (or next) paragraph with previous one." "*p"])
(byte-code "└┴Mê┬├Mç" [start-of-paragraph-text #[nil "`└├─!ê`┼└wê`\nY¡Å \nW¡è bê eV¡é╞ *ç" [nil npoint opoint forward-paragraph -1 " \n" start-of-paragraph-text] 2] end-of-paragraph-text #[nil "`┴┬!êh├=½â─uê`X¡è┬uê`dW¡é┼ )ç" [opoint forward-paragraph 1 10 -1 end-of-paragraph-text] 2]] 2)
(fset 'forward-sentence #[(&optional arg) "¼é┴┬W½óè├ ê`)┼╟P╚#½ç┬òSbê¬âbê)Të¬Z┬V½óè╔ ê`)\n╦\n╚#½å╠═xê¬ä\nbê)Së¬Z╚ëç" [arg 1 0 start-of-paragraph-text par-beg re-search-backward sentence-end "[^ \n]" t end-of-paragraph-text par-end re-search-forward " \n" nil zmacs-region-stays] 5 "\
Move forward to next sentence-end. With argument, repeat.
With negative argument, move backward repeatedly to sentence-beginning.
The variable `sentence-end' is a regular expression that matches ends
of sentences. Also, every paragraph boundary terminates sentences as
well." "p"])
(fset 'backward-sentence #[(&optional arg) "¼é┴┬[!ç" [arg 1 forward-sentence] 2 "\
Move backward to start of sentence. With arg, do it arg times.
See forward-sentence for more information." "p"])
(fset 'kill-sentence #[(&optional arg) "`┴\n!ê├`\")ç" [beg forward-sentence arg kill-region] 3 "\
Kill from point to end of sentence.
With arg, repeat; negative arg -N means kill back to Nth start of sentence." "*p"])
(fset 'backward-kill-sentence #[(&optional arg) "`┴\n!ê├`\")ç" [beg backward-sentence arg kill-region] 3 "\
Kill back from point to start of sentence.
With arg, repeat, or kill forward to Nth end of sentence if negative arg -N." "*p"])
(fset 'mark-end-of-sentence #[(arg) "└è┴\n!ê`)!ê├ ç" [push-mark forward-sentence arg zmacs-activate-region] 3 "\
Put mark at end of sentence. Arg works as in forward-sentence." "p"])
(fset 'transpose-sentences #[(arg) "└┴\n\"ç" [transpose-subr forward-sentence arg] 3 "\
Interchange this (next) and previous sentence." "*p"])